/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_08 / resources / oclocklib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 41 f4 20 3e 20 | 24 2e 52 65 73 6f 75 72 |...A. > |$.Resour|
|00000010| 63 65 73 2e 43 6c 6f 63 | 6b 4c 69 62 20 3a 20 4c |ces.Cloc|kLib : L|
|00000020| 69 62 72 61 72 79 20 63 | 6c 6f 63 6b 20 a9 20 52 |ibrary c|lock . R|
|00000030| 2e 41 2e 41 76 65 72 69 | 6c 6c 2c 20 31 39 38 38 |.A.Averi|ll, 1988|
|00000040| 2e 0d 00 14 04 0d 00 1e | 26 f4 20 a9 20 52 69 63 |........|&. . Ric|
|00000050| 68 61 72 64 20 41 6e 74 | 68 6f 6e 79 20 41 76 65 |hard Ant|hony Ave|
|00000060| 72 69 6c 6c 2c 20 31 39 | 38 38 2e 0d 00 28 04 0d |rill, 19|88...(..|
|00000070| 00 32 04 0d 00 3c 13 dd | 20 f2 63 72 65 61 74 65 |.2...<..| .create|
|00000080| 5f 63 6c 6f 63 6b 0d 00 | 3d 2a e7 20 63 6c 6f 63 |_clock..|=*. cloc|
|00000090| 6b 25 3e 30 20 8c 20 f2 | 73 79 73 5f 64 65 6c 65 |k%>0 . .|sys_dele|
|000000a0| 74 65 77 69 6e 64 6f 77 | 28 63 6c 6f 63 6b 25 29 |tewindow|(clock%)|
|000000b0| 0d 00 46 4e 63 6c 6f 63 | 6b 25 3d a4 73 79 73 5f |..FNcloc|k%=.sys_|
|000000c0| 64 65 66 69 6e 65 77 69 | 6e 64 6f 77 28 22 43 6c |definewi|ndow("Cl|
|000000d0| 6f 63 6b 22 2c 26 34 33 | 2c 6d 65 6e 75 77 6f 72 |ock",&43|,menuwor|
|000000e0| 6b 5f 66 67 63 6f 6c 2c | 38 2c 36 34 30 2c 36 34 |k_fgcol,|8,640,64|
|000000f0| 30 2c 30 2c 30 2c 36 34 | 30 2c 36 34 30 29 0d 00 |0,0,0,64|0,640)..|
|00000100| 50 32 f2 73 79 73 5f 6f | 70 65 6e 77 69 6e 64 6f |P2.sys_o|penwindo|
|00000110| 77 28 63 6c 6f 63 6b 25 | 2c 33 32 30 2c 31 39 30 |w(clock%|,320,190|
|00000120| 2c 39 36 30 2c 38 33 30 | 2c 30 2c 30 2c 2d 31 29 |,960,830|,0,0,-1)|
|00000130| 0d 00 5a 12 61 74 74 65 | 6e 64 63 6c 6f 63 6b 25 |..Z.atte|ndclock%|
|00000140| 3d b9 0d 00 64 0d 64 69 | 76 31 32 3d 36 2f af 0d |=...d.di|v12=6/..|
|00000150| 00 6e 0e 64 69 76 36 30 | 3d 33 30 2f af 0d 00 78 |.n.div60|=30/...x|
|00000160| 0d 75 70 64 61 74 65 25 | 3d a3 0d 00 82 05 e1 0d |.update%|=.......|
|00000170| 00 8c 04 0d 00 96 13 dd | 20 f2 72 65 64 72 61 77 |........| .redraw|
|00000180| 5f 63 6c 6f 63 6b 0d 00 | a0 12 f4 50 52 4f 43 69 |_clock..|...PROCi|
|00000190| 6e 66 6f 28 62 2b 34 29 | 0d 00 aa 10 f4 57 48 49 |nfo(b+4)|.....WHI|
|000001a0| 4c 45 20 6d 6f 72 65 25 | 0d 00 ab 0d 75 70 64 61 |LE more%|....upda|
|000001b0| 74 65 25 3d a3 0d 00 ac | 11 f2 75 70 64 61 74 65 |te%=....|..update|
|000001c0| 5f 63 6c 6f 63 6b 0d 00 | b4 0b f4 47 43 4f 4c 20 |_clock..|...GCOL |
|000001d0| 30 0d 00 b5 04 0d 00 be | 24 f4 43 49 52 43 4c 45 |0.......|$.CIRCLE|
|000001e0| 20 46 49 4c 4c 20 62 78 | 25 2b 33 32 30 2c 62 79 | FILL bx|%+320,by|
|000001f0| 25 2d 33 32 30 2c 32 38 | 30 0d 00 c8 1a f4 53 59 |%-320,28|0.....SY|
|00000200| 53 20 47 65 74 52 2c 30 | 2c 62 20 54 4f 20 6d 6f |S GetR,0|,b TO mo|
|00000210| 72 65 25 0d 00 d2 0d f4 | 45 4e 44 57 48 49 4c 45 |re%.....|ENDWHILE|
|00000220| 0d 00 dc 05 e1 0d 00 e6 | 04 0d 00 f0 13 dd 20 f2 |........|...... .|
|00000230| 75 70 64 61 74 65 5f 63 | 6c 6f 63 6b 0d 00 fa 93 |update_c|lock....|
|00000240| ea 20 63 65 25 2c 68 78 | 2c 68 79 2c 6d 78 2c 6d |. ce%,hx|,hy,mx,m|
|00000250| 79 2c 73 6c 78 25 2c 73 | 6c 79 25 2c 73 68 78 25 |y,slx%,s|ly%,shx%|
|00000260| 2c 73 68 79 25 2c 6d 6c | 78 25 2c 6d 6c 79 25 2c |,shy%,ml|x%,mly%,|
|00000270| 6d 68 78 25 2c 6d 68 79 | 25 2c 73 65 63 2c 6d 69 |mhx%,mhy|%,sec,mi|
|00000280| 6e 2c 68 72 73 2c 68 6c | 78 25 2c 68 6c 79 25 2c |n,hrs,hl|x%,hly%,|
|00000290| 68 68 78 25 2c 68 68 79 | 25 2c 61 68 78 25 2c 61 |hhx%,hhy|%,ahx%,a|
|000002a0| 68 79 25 2c 61 6d 78 25 | 2c 61 6d 79 25 2c 61 73 |hy%,amx%|,amy%,as|
|000002b0| 78 25 2c 61 73 79 25 2c | 68 78 25 2c 68 79 25 2c |x%,asy%,|hx%,hy%,|
|000002c0| 6d 78 25 2c 6d 79 25 2c | 73 78 25 2c 73 79 25 0d |mx%,my%,|sx%,sy%.|
|000002d0| 01 04 0b 63 65 25 3d 33 | 32 30 0d 01 0e 26 e7 20 |...ce%=3|20...&. |
|000002e0| c2 91 24 2c 38 29 3c 3e | 63 6c 6f 63 6b 74 65 78 |..$,8)<>|clocktex|
|000002f0| 74 24 20 84 20 75 70 64 | 61 74 65 25 3d a3 20 8c |t$ . upd|ate%=. .|
|00000300| 0d 01 18 15 63 6c 6f 63 | 6b 74 65 78 74 24 3d c2 |....cloc|ktext$=.|
|00000310| 91 24 2c 38 29 0d 01 22 | 38 e7 20 75 70 64 61 74 |.$,8).."|8. updat|
|00000320| 65 25 3d b9 20 8c 20 f2 | 73 79 73 5f 75 70 64 61 |e%=. . .|sys_upda|
|00000330| 74 65 77 69 6e 64 6f 77 | 28 63 6c 6f 63 6b 25 2c |tewindow|(clock%,|
|00000340| 30 2c 2d 36 34 30 2c 36 | 34 30 2c 30 29 0d 01 2c |0,-640,6|40,0)..,|
|00000350| 0e f2 69 6e 66 6f 28 62 | 2b 34 29 0d 01 36 19 73 |..info(b|+4)..6.s|
|00000360| 65 63 3d bb 28 c2 63 6c | 6f 63 6b 74 65 78 74 24 |ec=.(.cl|ocktext$|
|00000370| 2c 32 29 29 0d 01 40 24 | 6d 69 6e 3d bb 28 c1 63 |,2))..@$|min=.(.c|
|00000380| 6c 6f 63 6b 74 65 78 74 | 24 2c 34 2c 32 29 29 2b |locktext|$,4,2))+|
|00000390| 28 73 65 63 2f 36 30 29 | 0d 01 4a 22 68 72 73 3d |(sec/60)|..J"hrs=|
|000003a0| bb 28 c0 63 6c 6f 63 6b | 74 65 78 74 24 2c 32 29 |.(.clock|text$,2)|
|000003b0| 29 2b 28 6d 69 6e 2f 36 | 30 29 0d 01 54 16 e7 20 |)+(min/6|0)..T.. |
|000003c0| 68 72 73 3e 31 32 20 8c | 20 68 72 73 2d 3d 31 32 |hrs>12 .| hrs-=12|
|000003d0| 0d 01 5e 13 68 78 3d b5 | 28 68 72 73 2f 64 69 76 |..^.hx=.|(hrs/div|
|000003e0| 31 32 29 0d 01 68 13 68 | 79 3d 9b 28 68 72 73 2f |12)..h.h|y=.(hrs/|
|000003f0| 64 69 76 31 32 29 0d 01 | 72 13 6d 78 3d b5 28 6d |div12)..|r.mx=.(m|
|00000400| 69 6e 2f 64 69 76 36 30 | 29 0d 01 7c 13 6d 79 3d |in/div60|)..|.my=|
|00000410| 9b 28 6d 69 6e 2f 64 69 | 76 36 30 29 0d 01 86 13 |.(min/di|v60)....|
|00000420| 73 78 3d b5 28 73 65 63 | 2f 64 69 76 36 30 29 0d |sx=.(sec|/div60).|
|00000430| 01 90 13 73 79 3d 9b 28 | 73 65 63 2f 64 69 76 36 |...sy=.(|sec/div6|
|00000440| 30 29 0d 01 9a 04 0d 01 | a4 1f 73 6c 78 25 3d 28 |0)......|..slx%=(|
|00000450| b5 28 28 73 65 63 2d 31 | 35 29 2f 64 69 76 36 30 |.((sec-1|5)/div60|
|00000460| 29 29 2a 31 36 0d 01 ae | 1f 73 6c 79 25 3d 28 9b |))*16...|.sly%=(.|
|00000470| 28 28 73 65 63 2d 31 35 | 29 2f 64 69 76 36 30 29 |((sec-15|)/div60)|
|00000480| 29 2a 31 36 0d 01 b8 1f | 73 68 78 25 3d 28 b5 28 |)*16....|shx%=(.(|
|00000490| 28 73 65 63 2b 31 35 29 | 2f 64 69 76 36 30 29 29 |(sec+15)|/div60))|
|000004a0| 2a 31 36 0d 01 c2 1f 73 | 68 79 25 3d 28 9b 28 28 |*16....s|hy%=(.((|
|000004b0| 73 65 63 2b 31 35 29 2f | 64 69 76 36 30 29 29 2a |sec+15)/|div60))*|
|000004c0| 31 36 0d 01 cc 04 0d 01 | d6 1f 6d 6c 78 25 3d 28 |16......|..mlx%=(|
|000004d0| b5 28 28 6d 69 6e 2d 31 | 35 29 2f 64 69 76 36 30 |.((min-1|5)/div60|
|000004e0| 29 29 2a 31 32 0d 01 e0 | 1f 6d 6c 79 25 3d 28 9b |))*12...|.mly%=(.|
|000004f0| 28 28 6d 69 6e 2d 31 35 | 29 2f 64 69 76 36 30 29 |((min-15|)/div60)|
|00000500| 29 2a 31 32 0d 01 ea 1f | 6d 68 78 25 3d 28 b5 28 |)*12....|mhx%=(.(|
|00000510| 28 6d 69 6e 2b 31 35 29 | 2f 64 69 76 36 30 29 29 |(min+15)|/div60))|
|00000520| 2a 31 32 0d 01 f4 1f 6d | 68 79 25 3d 28 9b 28 28 |*12....m|hy%=(.((|
|00000530| 6d 69 6e 2b 31 35 29 2f | 64 69 76 36 30 29 29 2a |min+15)/|div60))*|
|00000540| 31 32 0d 01 fe 04 0d 02 | 08 1e 68 6c 78 25 3d 28 |12......|..hlx%=(|
|00000550| b5 28 28 68 72 73 2d 33 | 29 2f 64 69 76 31 32 29 |.((hrs-3|)/div12)|
|00000560| 29 2a 31 30 0d 02 12 1e | 68 6c 79 25 3d 28 9b 28 |)*10....|hly%=(.(|
|00000570| 28 68 72 73 2d 33 29 2f | 64 69 76 31 32 29 29 2a |(hrs-3)/|div12))*|
|00000580| 31 30 0d 02 1c 1e 68 68 | 78 25 3d 28 b5 28 28 68 |10....hh|x%=(.((h|
|00000590| 72 73 2b 33 29 2f 64 69 | 76 31 32 29 29 2a 31 30 |rs+3)/di|v12))*10|
|000005a0| 0d 02 26 1e 68 68 79 25 | 3d 28 9b 28 28 68 72 73 |..&.hhy%|=(.((hrs|
|000005b0| 2b 33 29 2f 64 69 76 31 | 32 29 29 2a 31 30 0d 02 |+3)/div1|2))*10..|
|000005c0| 30 04 0d 02 3a 0e 61 68 | 78 25 3d 68 78 2a 34 30 |0...:.ah|x%=hx*40|
|000005d0| 0d 02 44 0e 61 68 79 25 | 3d 68 79 2a 34 30 0d 02 |..D.ahy%|=hy*40..|
|000005e0| 4e 0e 61 6d 78 25 3d 6d | 78 2a 36 30 0d 02 58 0e |N.amx%=m|x*60..X.|
|000005f0| 61 6d 79 25 3d 6d 79 2a | 36 30 0d 02 62 0e 61 73 |amy%=my*|60..b.as|
|00000600| 78 25 3d 73 78 2a 38 30 | 0d 02 6c 0e 61 73 79 25 |x%=sx*80|..l.asy%|
|00000610| 3d 73 79 2a 38 30 0d 02 | 76 04 0d 02 80 0e 68 78 |=sy*80..|v.....hx|
|00000620| 25 3d 68 78 2a 31 35 30 | 0d 02 8a 0e 68 79 25 3d |%=hx*150|....hy%=|
|00000630| 68 79 2a 31 35 30 0d 02 | 94 0e 6d 78 25 3d 6d 78 |hy*150..|..mx%=mx|
|00000640| 2a 32 32 30 0d 02 9e 0e | 6d 79 25 3d 6d 79 2a 32 |*220....|my%=my*2|
|00000650| 32 30 0d 02 a8 0e 73 78 | 25 3d 73 78 2a 32 36 30 |20....sx|%=sx*260|
|00000660| 0d 02 b2 0e 73 79 25 3d | 73 79 2a 32 36 30 0d 02 |....sy%=|sy*260..|
|00000670| bc 04 0d 02 c6 1b 63 78 | 25 3d 62 78 25 2b 63 65 |......cx|%=bx%+ce|
|00000680| 25 3a 63 79 25 3d 62 79 | 25 2d 63 65 25 0d 02 d0 |%:cy%=by|%-ce%...|
|00000690| 0c c8 95 20 6d 6f 72 65 | 25 0d 02 da 07 e6 20 30 |... more|%..... 0|
|000006a0| 0d 02 e4 1d c8 8f 20 c8 | 90 20 62 78 25 2b 63 65 |...... .|. bx%+ce|
|000006b0| 25 2c 62 79 25 2d 63 65 | 25 2c 32 38 30 0d 02 ee |%,by%-ce|%,280...|
|000006c0| 08 e6 20 31 35 0d 02 f8 | 17 ec 20 63 78 25 2d 61 |.. 15...|.. cx%-a|
|000006d0| 6d 78 25 2c 63 79 25 2d | 61 6d 79 25 0d 03 02 17 |mx%,cy%-|amy%....|
|000006e0| ec 20 63 78 25 2b 6d 6c | 78 25 2c 63 79 25 2b 6d |. cx%+ml|x%,cy%+m|
|000006f0| 6c 79 25 0d 03 0c 06 c8 | 96 0d 03 16 1a f0 20 38 |ly%.....|...... 8|
|00000700| 35 2c 63 78 25 2b 6d 68 | 78 25 2c 63 79 25 2b 6d |5,cx%+mh|x%,cy%+m|
|00000710| 68 79 25 0d 03 20 18 f0 | 20 38 35 2c 63 78 25 2b |hy%.. ..| 85,cx%+|
|00000720| 6d 78 25 2c 63 79 25 2b | 6d 79 25 0d 03 2a 0a e6 |mx%,cy%+|my%..*..|
|00000730| 20 33 32 2c 32 0d 03 34 | 17 ec 20 63 78 25 2d 61 | 32,2..4|.. cx%-a|
|00000740| 73 78 25 2c 63 79 25 2d | 61 73 79 25 0d 03 3e 17 |sx%,cy%-|asy%..>.|
|00000750| ec 20 63 78 25 2b 73 6c | 78 25 2c 63 79 25 2b 73 |. cx%+sl|x%,cy%+s|
|00000760| 6c 79 25 0d 03 48 1a f0 | 20 38 35 2c 63 78 25 2b |ly%..H..| 85,cx%+|
|00000770| 73 68 78 25 2c 63 79 25 | 2b 73 68 79 25 0d 03 52 |shx%,cy%|+shy%..R|
|00000780| 18 f0 20 38 35 2c 63 78 | 25 2b 73 78 25 2c 63 79 |.. 85,cx|%+sx%,cy|
|00000790| 25 2b 73 79 25 0d 03 5c | 08 e6 20 31 32 0d 03 66 |%+sy%..\|.. 12..f|
|000007a0| 17 ec 20 63 78 25 2d 61 | 68 78 25 2c 63 79 25 2d |.. cx%-a|hx%,cy%-|
|000007b0| 61 68 79 25 0d 03 70 17 | ec 20 63 78 25 2b 68 6c |ahy%..p.|. cx%+hl|
|000007c0| 78 25 2c 63 79 25 2b 68 | 6c 79 25 0d 03 7a 1a f0 |x%,cy%+h|ly%..z..|
|000007d0| 20 38 35 2c 63 78 25 2b | 68 68 78 25 2c 63 79 25 | 85,cx%+|hhx%,cy%|
|000007e0| 2b 68 68 79 25 0d 03 84 | 18 f0 20 38 35 2c 63 78 |+hhy%...|.. 85,cx|
|000007f0| 25 2b 68 78 25 2c 63 79 | 25 2b 68 79 25 0d 03 8e |%+hx%,cy|%+hy%...|
|00000800| 17 c8 99 20 47 65 74 52 | 2c 30 2c 62 20 b8 20 6d |... GetR|,0,b . m|
|00000810| 6f 72 65 25 0d 03 98 05 | ce 0d 03 a2 0d 75 70 64 |ore%....|.....upd|
|00000820| 61 74 65 25 3d b9 0d 03 | ac 05 cd 0d 03 b6 05 e1 |ate%=...|........|
|00000830| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+